

   1 .
   2 . SIMON SAYS
   3 . VERSION 3.0
   4 . BY SUPER SOFTWARE
   5 .
   6 .
   9 :RETURN ;NT=0;BC=240;FC=125;W=50
  10 T=1;CLEAR 
  50 . SCORES WHEN NOTES
  55 . GET SHORTER:
  60 M=3;N=5;O=6;P=8;Q=9;R=10
 100 &(10)=0;CY=4;CX=-12;PRINT "SIMON";CY=-4;CX=-9;PRINT "SAYS";BOX 0,0,30,29,3;GOSUB 3000
 105 GOSUB 4000;FOR A=1TO 50;@(A)=RND (4)×10;NEXT A
 110 T=1;GOSUB 1000
 200 GOSUB 1000;FOR A=1TO T
 210 GOSUB 2000;&(21)=31;&(19)=@(A)
 220 FOR B=1TO D;NEXT B;GOSUB 2000;&(21)=0;&(19)=0
 230 NEXT A
 300 FOR A=1TO T
 310 IF @(A)=10 N=8
 320 IF @(A)=20 N=6
 330 IF @(A)=30 N=2
 340 IF @(A)=40 N=4
 350 FOR Z=1TO W
 351 IF &(23)=4K=4;GOTO 357
 352 IF &(22)=2K=8;GOTO 357
 353 IF &(22)=8K=2;GOTO 357
 354 IF &(21)=4K=6;GOTO 357
 355 NEXT Z;GOTO 900
 357 Z=W;NEXT Z
 360 IF K#NGOTO 900
 370 GOSUB 2000;&(21)=31;&(19)=@(A);FOR B=1TO D;NEXT B;GOSUB 2000;&(21)=0;&(19)=0
 390 NEXT A
 400 FOR Y=1TO 2;FOR X=2TO 30STEP 2;BOX 0,0,X,X,3;NEXT X;NEXT Y
 410 T=T+1;GOSUB 4000
 420 GOTO 200
 900 &(21)=31;&(19)=150
 910 FOR X=1TO 500;NEXT X;&(19)=0;&(21)=0
 990 GOTO 1500
1000 D=200
1010 IF T>M-1 D=100
1020 IF T>N-1 D=50
1030 IF T>O-1 D=25
1040 IF T>P-1 D=10
1050 IF T>Q-1 D=5
1060 IF T>R-1 D=1
1090 RETURN 
1500 CY=-36;CX=-38;PRINT "GAME",
1510 CY=-36;CX=21;PRINT "OVER
1520 IF T>H H=T;GOSUB 4000
1600 A=1;FOR B=1TO 4;@(A)=B×10;GOSUB 2000;IF &(23)RUN 
1610 GOSUB 2000;NEXT B;GOTO 1600
2000 IF @(A)=10BOX 0,29,28,28,3;RETURN 
2010 IF @(A)=20BOX 30,0,28,28,3;RETURN 
2020 IF @(A)=30BOX 0,-29,28,28,3;RETURN 
2030 IF @(A)=40BOX -30,0,28,28,3;RETURN 
3000 BOX 0,29,30,30,1;BOX 0,29,28,28,2;CX=0;CY=29;PRINT "8
3010 BOX 30,0,30,30,1;BOX 30,0,28,28,2;CX=30;CY=0;PRINT "6
3020 BOX 0,-29,30,30,1;BOX 0,-29,28,28,2;CX=0;CY=-29;PRINT "2
3030 BOX -30,0,30,30,1;BOX -30,0,28,28,2;CX=-30;CY=0;PRINT "4
3050 &(10)=180;RETURN 
4000 CY=40;CX=-79;PRINT "SCORE:";CX=-65;PRINT #2,T
4010 CY=40;CX=45;PRINT "HIGH:";CX=54;PRINT #2,H;RETURN 

:RETURN 
>